home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Agfa Fonts^4.adf / CSsymbolsInstall < prev    next >
Text File  |  1992-03-13  |  3KB  |  95 lines
  1. ;This "Installer" script will configure the users system to support 
  2. ; the CS(Compugraphic Script) typefaces . 
  3. ; Background:
  4. ; Fountain version 37.10 sets L1 as the default symbol set. To support CS typefaces
  5. ; we need to copy a new version of IF.SS that contains character maps for CS.
  6. ; The new IF.SS files will contain: 
  7. ;        L1 - Amiga Latin 1
  8. ;        GD - Gold Disk
  9. ;        D1 - Series 100
  10. ;        D2 - Series 200
  11. ;        D3 - Series 300
  12. ;        CP - Postscript
  13. ;        CS - CS Zapf Dingbats
  14. ;        SP - Symbols - Postscript
  15. ;        plus the TD symbol sets, minus Ventura
  16. ;        
  17.  
  18.  
  19. ; if something goes wrong, reset diskfont variable
  20.  
  21. (onerror (run "setenv env:sys/diskfont SYMSET L1"))
  22.  
  23.  
  24.  
  25.  
  26. (message 
  27.         "The Agfa Intellifont LaserType CS Symbols typeface require a special character set."
  28.         " Please refer to the enclosed \"Agfa CS (Compugrahic Script)Installation\" document. "
  29.         " This will show you the character set for CS Symbols. "
  30. )
  31.                           
  32.                   
  33.  
  34.  
  35.     
  36. ;if the original IF.SS file is installed, copy new file
  37.  
  38.  
  39. (set ifssSize (getsize "fonts:_bullet/if.ss"))
  40.  
  41.  
  42. (if (< ifssSize 1)
  43.    
  44.    (Abort " \"fonts:_bullet/if.ss\" not found."
  45.           " Please execute \"IntellifontSystemChek\""
  46.    )        
  47. )
  48.  
  49.  
  50.  
  51. (if (> 18000 ifssSize)
  52.     
  53.    (
  54.     (run "copy fonts:_bullet/if.ss to fonts:_bullet/if.ss.org")  
  55.     (copyfiles
  56.                       
  57.             (prompt "Copying a new symbol set maps to support"
  58.             " LaserType CS (Compugraphic Script)"
  59.             )
  60.             
  61.             (help 
  62.                      "To use CS Symbols characters"
  63.                      " in the LaserType CS (Compugrahic Script) collection, we need to add an additional"
  64.                      " symbol set. This symbol sets contain the following character maps:\n"
  65.                      "\n   SP - Postscript Symbols \n"
  66.                      "\n"
  67.                      " Refer to the enclosed document for print sample of the above selection."
  68.                      )
  69.             (source "df0:Intellifontfiles")
  70.             (dest "fonts:_bullet")
  71.             (pattern "if.ss")
  72.             (files)
  73.             (confirm)
  74.      )
  75.    )
  76. )            
  77.  
  78. ; set system variable
  79.  
  80.  (run "setenv env:sys/diskfont SYMSET SP")
  81.  
  82.  
  83. (message "The installer will now execute Fountain for you.\n"
  84.         " NOTE: This installer only works with LaserType CS Symbols Font." 
  85.         " You MUST only install LaserType CS Symbols typeface, then exit from Fountain,"
  86.         " and finish the Install !!! " 
  87. )
  88. (run "sys:system/fountain")
  89.  
  90. (run "setenv env:sys/diskfont SYMSET L1")
  91.  
  92. (trap 12345 (run "setenv env:sys/diskfont SYMSET L1"))
  93.  
  94. (exit)
  95.